data <-read.csv("data.csv") data$Electricity<-data$Households.with.electricity data$Electricity<-data$Electricity/100 data1 <- aggregate(Electricity~State.1, data=data, FUN=mean)